home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
001a
/
ezzcomm.zip
/
MANIA.T
< prev
next >
Wrap
Text File
|
1991-02-16
|
856b
|
16 lines
: EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
: Licensed for use at your own risk without fee. Altered versions,
: when distributed, must be clearly marked as altered and accompanied
: by the originals.
pat;mput %s6\&m%s7;pat 0 "\nMAIN MENU: ";pat 1 "\nMESSAGE MENU: "
wait -f45;if n bye;set z0 "";ife r nolog close;return
if 1 pat;mput %s6\&N%s7;gosub .%lib/smlnet.t;pat;pat 0 "\nMAIN MENU";wait -F300;if n bye;set z0 "";ife r nolog close;return
p?0 findq "\n%remote/tomcat" %lib/%ZCUSER.ids;if !? goto notomcat
pat;mput %s6\&d%s7;pat 0 "Enter door number [";pat 1c "DOOR #1" " "
wait -f30;if n bye;ife r nolog close;return
pat;mput %s6\&6\r;gosub .%lib/tomcat.t
if !c bye;set z0 "";ife r nolog close;return
pat;pat 0 "\nMAIN MENU";wait -f60;if n bye;set z0 "";ife r nolog close;return
notomcat:
set z0 ""